﻿<!--#include file="inc/const.asp"-->
<%
if len(DataBaseType)=0 then response.redirect "install.asp"
call spiderbot()

dim page: page = request("page")
if Len(page) = 0 or not isnumeric(page) or instr(page,",") > 0 then page = 1 else page = Int(page)
if page < 1 then page = 1

if (createhtml = 1 or createhtml = 3) and page = 1 then	' 调用静态文件
	on error resume next
	Server.transfer("index." & defaultext)
	if err then
		err.clear
		call createindex(1)
		conn.close: set conn = nothing
		Server.Transfer("Index." & defaultext)
		if err then err.clear: response.write "<h1>Create Index error!</h1>": response.end
	end if
else ' 动态生成
	if not chkcache("Cache_Index_" & page) then
		call clscache
		call setcache("Cache_Index_" & page, createindex(page))
		conn.close: set conn = nothing
	end if
	dim html
	html = getcache("Cache_Index_" & page)
	html = rewriterule(html)
	response.write html
end if
%>
